Garbo/Garbo.cdr/mac/hypercrd/hc1_2_x/mackun.sit/Mackun/É}ÉbÉNÉì1.0(ÉxÅ[É^î≈)/card_4141.txt

Text File | 1990-05-15 | 11KB | 508 lines

-- card: 4141 from stack: in.0(ÉxÅ[É^î≈)
-- bmap block id: 4545
-- flags: 0000
-- background id: 3816
-- name: MackunSet
----- HyperTalk script -----
on openCard
  put xSetSoundVol(card field "MVol2") into dummy
end openCard




-- part 2 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=19 top=35 right=51 bottom=126
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 4 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=177 top=102 right=167 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: levelF


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=193 top=101 right=122 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 13409 / 13409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pitchB
----- HyperTalk script -----
on mouseDown
  global Mpitch
  set the cursor to -15615
  get the rect of card field "LevelF"
  put item 1 of it into Xmin
  put item 3 of it into Xmax

  set the hilite of the target to true
  moveLevel
  put the loc of the target into data1

  -- åvéZ
  get the loc of the target
  put  ((item 1 of it)-Xmin)  into data1
  put round((data1*(500-65) /(Xmax-Xmin))+65) into data1
  if data1 is 116
  then
  put 117 into data1
end if
put data1 into card field "Mpitch"
put data1 into Mpitch
set the hilite of the target to false
end mouseDown




-- part 7 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=97 top=146 right=162 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mrate


-- part 8 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=96 top=104 right=120 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mpitch


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=192 top=145 right=166 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 13409 / 13409
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rateB
----- HyperTalk script -----
on mouseDown
  global Mrate
  set the cursor to -15615
  get the rect of card field "LevelF"
  put item 1 of it into Xmin
  put item 3 of it into Xmax

  set the hilite of the target to true
  moveLevel
  put the loc of the target into data1

  -- åvéZ
  get the loc of the target
  put  ((item 1 of it)-Xmin)  into data1
  put round((data1*(425-85) /(Xmax-Xmin))+85) into data1
  if data1 is 113
  then
  put 115 into data1
end if
put data1 into card field "Mrate"
put data1 into Mrate
set the hilite of the target to false
end mouseDown




-- part 11 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=198 top=82 right=97 bottom=214
-- title width / last selected line: 0
-- icon id / first selected line: 3584 / 3584
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÉVïKâ{â^âô
----- HyperTalk script -----
on mouseUp
  global Mpitch
  set the loc of button "pitchB" to 207,111
  put 130 into card field "Mpitch"
  put 130 into Mpitch
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=199 top=169 right=184 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ÉVïKâ{â^âô
----- HyperTalk script -----
on mouseUp
  global Mrate
  set the loc of button "rateB" to 206,155
  put 136 into card field "Mrate"
  put 136 into Mrate
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8001
-- rect: left=107 top=66 right=84 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Robotic
----- HyperTalk script -----
on mouseUp
  global Mrobot
  set the hilite of the target to true
  set the hilite of button "Normal" to false
  put 0 into card field "Mrobot"
  put 0 into Mrobot
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: C001
-- rect: left=34 top=66 right=84 bottom=95
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Normal
----- HyperTalk script -----
on mouseUp
  global Mrobot
  set the hilite of the target to true
  set the hilite of button "Robotic" to false
  put 1 into card field "Mrobot"
  put 1 into Mrobot
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 2001
-- rect: left=465 top=306 right=332 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: éαé╟éΦ
----- HyperTalk script -----
on mouseUp
  visual effect  barn door close
  go back
end mouseUp



-- part 17 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=219 top=62 right=80 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Mrobot


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=25 top=192 right=228 bottom=57
-- title width / last selected line: 0
-- icon id / first selected line: 20008 / 20008
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: â}âbâNâô
----- HyperTalk script -----
on mouseUp
  global Mrate,Mpitch,Mrobot
  set the cursor to 4
  get card field "ǃÇ∑Ç∆"

  MackunSpeech it,Mrate,Mpitch,Mrobot
end mouseUp







-- part 19 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=27 top=234 right=310 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: é─é╖é╞


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=61 top=191 right=232 bottom=128
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: â}âbâNâô
----- HyperTalk script -----
on mouseUp
  global Mrate,Mpitch,Mrobot
  set the cursor to 4
  get card field "ǃÇ∑Ç∆"
  if it is not empty
  then
  put the number of lines in it  into flen
  repeat with n=1 to   flen
    put kanToRom(line n of it) into romdata
    if romdata is empty
    then
    answer "Hyper CardÇ∆kanji.datÇ™ìØÇ∂ÉtÉHÉãÉ_ì‡Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©ÅH"
  else
    put MackunR(kanToRom(line n of it),Mrate,Mpitch,Mrobot) into dummy
    if (dummy is not empty)
    then
    answer "MacinTalkÇ™ÉVÉXÉeÉÄÉtÉHÉãÉ_Å[Ç…ì¸Ç¡ÇƒÇ¢Ç‹Ç∑Ç©?"
  end if
end if
end  repeat
end if
end mouseUp







-- part 22 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=425 top=69 right=173 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: levelF2


-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=436 top=151 right=166 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 14306 / 14306
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SoundVol
----- HyperTalk script -----
on mouseDown
  global MVol
  set the cursor to -15615
  get the rect of card field "LevelF2"
  put item 2 of it into Ymin
  put item 4 of it into Ymax

  set the hilite of the target to true
  moveLevel2
  put the loc of the target into data1

  -- åvéZ
  get the loc of the target
  put item 1 of it into X
  put  ((item 2 of it)-Ymin)  into data1
  put round((data1*(8-1) /(Ymax-Ymin))+1) into data1
  put round((data1-1)*((Ymax-Ymin)/7)+Ymin) into Y
  put 8-data1 into data1
  put data1 into card field "MVol2"
  put data1 into MVol
  set the loc of the target to X,Y
  put xSetSoundVol(MVol) into Dummy
  beep 1
  set the hilite of the target to false
end mouseDown

on moveLevel2
  get the loc of target
  put item 1 of it into X1
  put item 2 of it into Y1
  get the rect of card field "LevelF2"
  put item 2 of it into Ymin
  put item 4 of it into Ymax

  repeat while true
    if the mouse is up
    then
    exit moveLevel2
  else
    get the mouseLoc
    put item 1 of it into X2
    put item 2 of it into Y2
    if Y2>Ymax
    then
    put Ymax into Y2
    set the loc of target to X1,Y2
  end if
  if Y2<Ymin
  then
  put Ymin into Y2
  set the loc of target to X1,Y2
end if
set the loc of target to X1,Y2
end if
end repeat
end moveLevel2




-- part 24 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=455 top=193 right=209 bottom=478
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MVol2


-- part 25 (field)
-- low flags: 00
-- high flags: 0001
-- rect: left=425 top=193 right=209 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 16384
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part contents for card part 2
----- text -----
É}ÉbÉNÉìÇÃê›íË

-- part contents for card part 8
----- text -----
130

-- part contents for card part 7
----- text -----
136

-- part contents for card part 17
----- text -----
1

-- part contents for card part 19
----- text -----
ç°ì˙ÇÕÅAç°ì˙ÇÃìVãCÇÕÅAǢǩǙÇ≈Ç∑Ç©ÅH
it is not logical,Captain.

-- part contents for card part 24
----- text -----
1

-- part contents for card part 25
----- text -----
âπ

-- part contents for card part 22
----- text -----